home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / uart.bas < prev    next >
BASIC Source File  |  1992-05-06  |  597b  |  21 lines
  1. 10    scnclr:gosub 40
  2. 20    getkey char$:if char$="/" then 200
  3. 30    gosub 150:gosub 160:print char$;:goto 20
  4. 40    'Serial I/O driver
  5. 50    'config
  6. 60    baud%=1200
  7. 70    iobase%=&hdff000
  8. 80    serdatr%=&h18+iobase%
  9. 90    serdat%=&h30+iobase%
  10. 100   serper%=&h32+iobase%
  11. 110   intreq%=&h9c+iobase%
  12. 120   poke_w serper%,(1/baud%)/(.2794*1e-06)
  13. 130   return
  14. 140   'write
  15. 150   poke_w serdat%,asc(char$)+256:return
  16. 160   'read
  17. 170   char%=peek_w(serdatr%)
  18. 180   if (char% and 16384) = 0 then char$="":return
  19. 190   char$=chr$(char% and 255):poke intreq%,8:return
  20. 200   gosub 160:print char$;:goto 200
  21.